#!/usr/bin/perl -w
use XTM;
my $dut_mgmt_ip = $ARGV[0];

my $dut = new XTM(eth1=>$dut_mgmt_ip);
$dut->cli->connect_shell();
my @cmd_list=(
	"mount -o remount,rw \/",
	"sed -i \'s/\-d/\-d \-t/g\' /etc/inittab.d/iked",
	"sed -i \'s/wgagent/wgagent \-t/g\' /etc/inittab.d/wgagent",
	"kill -SIGHUP 1",
	"sleep 5",
	"kill `pidof iked`",
	"kill `pidof wgagent`"
	);
$dut->cli->cmd(@cmd_list);
$dut->cli->disconnect();

